perm filename MRIADF.TEX[TEX,DEK] blob sn#462931 filedate 1979-07-27 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	%			*****	 MRIADF.TEX	*****		23 July 1979
C00004 00003	%			initialize single-column dimensions
C00009 ENDMK
C⊗;
%			*****	 MRIADF.TEX	*****		23 July 1979

\input mripkg

\setcount0 -1		%page number counter, negative for roman numerals
\setcount2 635		%length of single column on full page
\setcount3 75		%length of header info
\setcount1 \count2 \advcount1 by -\count3	%length of column on first page
\setcount4 20		%height (total) of running head box
\setcount5 \count2 \advcount5 by \count4	%total page length
\setcount6 74		%column measure
\setcount7 8		%space between columns
%column measure plus space between columns must be multiple of 4pt leader size
\setcount8 \count6 \advcount8 by \count7 \advcount8 by \count6
	\advcount8 by \count7 \advcount8 by \count6	% width of three columns
\setcount9 \count8 \advcount9 by \count8 \advcount9 by \count7
\xdef\pagewd{\count9 pt}	% total page width
\xdef\colwd{\count6 pt}
%			initialize single-column dimensions
\hsize \colwd \vsize \count1 pt \maxdepth 2pt
\sixpt \baselineskip 7pt plus .1pt minus .1pt \lineskiplimit -1pt
\parskip 0pt plus .05pt
\gdef\fpage{T}			%fpage = T indicates first page
\widow←1000			%prevents break with widow lines

\def\newltr#1{			%begin new letter of the alphabet
	\penalty-500\vskip 10pt plus 5pt minus 3pt
	\vbox to 4.2pt{\tenpt\hbox to \colwd{\hfill\bf#1\hfill}
		\vskip 0pt minus 100000pt}
%			at top of column, align tops of lines
	\setcount6 3	%minimum number of names to be set at bottom of page
	\penalty 1000\vskip 8pt plus 2pt minus 1pt}

\def\name#1#2{			%#1=last name;
%				#2=rest of name, including comma, followed by
%				all references within the same brace grouping
	\jpar 1000000
%			permit break at bottom of page only if
%			at least 3 names have followed new letter
	\ifpos6{\penalty 1000\advcount6 by -1}
	\else{\penalty -100}
	\hangindent 1.5em \noindent#1#2\npg\ \par
	\mark{#1}}	%\mark comes last so as to avoid the paragraph glue

%	definitions for \fref and \oref are in mripkg (also used in mrikdf)

\gdef\lr{L}
\output{\outa}
\def\outa{\output{\outb}\save1\page\save0\hbox{\eightpt\bf\firstmark}}
\def\outb{\output{\outc}\save2\page}
\def\outc{\output{\outd}	% now we print the left half page
	\vbox to \count5 pt{\baselineskip 0pt\lineskip 0pt
%				this full-page length includes running head
	    \if T\fpage{\vbox to \count3 pt{
		\vfill
		\spose{\hbox to \pagewd{\:>\hfill AUTHOR INDEX\hfill}}
		\vskip 40pt}}
	    \else{\vbox to 20pt{\vfill		%begin running head
		\eightpt\bf\hbox{\!
		    \spose{\hbox to \pagewd{\hfill AUTHOR INDEX\hfill}}
		    \ifeven0{\box0}		%left of even-numbered pages
		    \else{\count0}}		%left of odd-numbered pages
		\vskip 12pt}}
	    \hbox to \count8 pt{\box1\hfill\box2\hfill\page}}
	\gdef\lr{R}}
\def\outd{\output{\oute}\save4\page}
\def\oute{\output{\outf}\save5\page}
\def\outf{\output{\outa}	% now we print the right half page
	\vbox to \count5 pt{\baselineskip 0pt\lineskip 0pt
%				this full-page length includes running head
	    \if T\fpage{\vbox to \count3 pt{\vfill}
		\vsize \count2 pt \gdef\fpage{F}}
	    \else{\vbox to 20pt{\vfill		%begin running head
		\eightpt\bf\hbox to \count8 pt{\hfill
		    \ifeven0{\count0}		%right of even-numbered pages
		    \else{\botmark}}		%right of odd-numbered pages
		\vskip 12pt}}
	    \hbox to \count8 pt{\box4\hfill\box5\hfill\page}
	    \advcount0}		%increment page number
	\gdef\lr{L}}
\def\closeout{\vfill\penalty-1000
	\def\n{\hbox to \colwd{}}
	\if\lr L{\n\eject\n\eject\n\eject}\else{}\n\end}	% gets last page out